home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macUtilities.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  4.9 KB  |  133 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MacUtilities
  3. %
  4. % The routines listed in Inside Macintosh chapter X: 
  5. % The code has been converted from the file ToolInft.p
  6. % In this module you find the programmers interface to
  7. % General utility procedures. You will find the basic toolbox 
  8. % callls in ToolboxUtilities.
  9. %
  10. % 890409/Boris Magnusson
  11. % 
  12. % ---------------------------------------------------------------------------
  13. External class MacPoint="::Sinterfaces:MacPoint";
  14. External class MacRect="::Sinterfaces:MacRect";
  15. External class ToolboxUtilities="::Sinterfaces:toolboxUtilities";
  16. TOOLBOXUtilities class MacUtilities;
  17. begin
  18.     ! General Utilities ;
  19.  
  20. Integer procedure BitAnd(long1,long2); integer long1,long2;BitAnd:=TOOLBOXBitAnd(long1,long2);
  21. Integer procedure BitOr(long1,long2); integer long1,long2;BitOr:=TOOLBOXBitOr(long1,long2);
  22. Integer procedure BitXor(long1,long2); integer long1,long2;BitXor:=TOOLBOXBitXor(long1,long2);
  23. Integer procedure BitNot(long1); integer long1;BitNot:=TOOLBOXBitNot(long1);
  24. Integer procedure BitShift(long1,count); integer long1; short integer count;
  25.     BitShift:=TOOLBOXBitShift(long1,count);
  26. Boolean procedure BitTst(bytePtr,bitNum); text bytePtr; integer bitNum;
  27.     BitTst:=TOOLBOXBitTst(bytePtr,bitNum);
  28. procedure BitSet(bytePtr,bitNum); text bytePtr;integer bitNum;TOOLBOXBitSet(bytePtr,bitNum);
  29. procedure BitClr(bytePtr,bitNum); text bytePtr;integer bitNum;TOOLBOXBitClr(bytePtr,bitNum);
  30.  
  31. %    procedure TOOLBOXLongMul(a, b: LONGINT; VAR dst: Int64Bit);
  32.  
  33. integer procedure FixMul(a, b);integer a,b;FixMul:=TOOLBOXFixMul(a, b);
  34. Integer procedure FixRatio(numer,denom); short integer numer,denom;
  35.     FixRatio:=TOOLBOXFixRatio(numer,denom); 
  36. short Integer procedure HiWord(x); integer x;HiWord:=TOOLBOXHiWord(x);
  37. short Integer procedure LoWord(x); integer x;LoWord:=TOOLBOXLoWord(x);
  38. short Integer procedure FixRound(x); integer x;FixRound:=TOOLBOXFixRound(x);
  39.  
  40. %    procedure TOOLBOXPackBits(VAR srcPtr, dstPtr: Ptr; srcBytes: INTEGER);
  41. %    procedure TOOLBOXUnPackBits(VAR srcPtr, dstPtr: Ptr; dstBytes: INTEGER);
  42.  
  43. Integer procedure SlopeFromAngle(angle); short integer angle;
  44.     SlopeFromAngle:=TOOLBOXSlopeFromAngle(angle);
  45. short Integer procedure AngleFromSlope(slope); integer slope;
  46.     AngleFromSlope:=TOOLBOXAngleFromSlope(slope);
  47.     
  48. Integer procedure DeltaPoint(ptA, ptB);ref(MacPoint) ptA,ptB;
  49.     DeltaPoint:=TOOLBOXDeltaPoint(ptA.v, ptB.v);
  50.  
  51. %    ??? NewString(theString: Str255): StringHandle;
  52. Integer procedure NewString(simText);text simText;
  53.     begin
  54.         text temp; temp:-text_string(simText);
  55.         NewString:=TOOLBOXNewString(simText);
  56.     end;
  57.  
  58. %    SetString(theString: StringHandle; strNew: Str255);
  59. procedure SetString(StringHandle,Str255);name Str255; 
  60.         integer StringHandle; text Str255;
  61.         begin
  62.             text temp;temp:-blanks(256);
  63.             TOOLBOXSetString(StringHandle,Temp);
  64.             Str255:-string_text(temp);
  65.         end;
  66.  
  67. Integer procedure GetString(stringID); short integer StringID;
  68.     GetString:=TOOLBOXGetString(stringID);
  69.  
  70. %    External TOOLBOX procedure x="" is 
  71. %    procedure TOOLBOX  GetIndString(VAR theString: Str255; strListID: INTEGER;
  72. %                     index: INTEGER);
  73. %
  74. %    External TOOLBOX procedure x="$A9E0" is 
  75. %    Integer procedure TOOLBOX Munger(h: Handle; offset: LONGINT; ptr1: Ptr; len1: LONGINT;
  76. %                    ptr2: Ptr; len2: LONGINT): LONGINT;
  77. %    INLINE $A9E0;
  78.  
  79. Integer procedure GetIcon(iconID); short integer iconID; GetIcon:=TOOLBOXGetIcon(iconID);
  80.  
  81.     procedure PlotIcon(theRect,theIcon);ref(MacRect) theRect;integer theIcon;
  82.         TOOLBOXPlotIcon(theRect.top,theIcon);
  83.  
  84. Integer procedure GetCursor(cursorID); short integer cursorID;
  85.     GetCursor:=TOOLBOXGetCursor(cursorID);
  86.     
  87. %    GetPattern(patID: INTEGER): PatHandle;
  88. Integer procedure GetPattern(patID); short integer patID;GetPattern:=TOOLBOXGetPattern(patID);
  89.  
  90. %    GetPicture(picID: INTEGER): PicHandle;
  91. Integer procedure GetPicture(picID); short integer picID;GetPicture:=TOOLBOXGetPicture(picID);
  92.  
  93. %    External TOOLBOX procedure x="" is 
  94. %    procedure TOOLBOX  GetIndPattern(VAR thePat: Pattern; patListID: INTEGER;
  95. %                        index: INTEGER);
  96.  
  97. procedure ShieldCursor(shield,offset);ref(MacRect) shield; ref(MacPoint) offset;
  98.         TOOLBOXShieldCursor(shield.top,offset.v);
  99.         
  100. %    External TOOLBOX procedure x="" is 
  101. %    procedure TOOLBOXScreenRes(VAR scrnHRes, scrnVRes: INTEGER);
  102.  
  103. % ===================================================================
  104. % Utilities  addad to support Simula-calls to the toolbox
  105. %     text_string
  106. % Routine to convert a SIMULA text to a Mac Pascal type str255
  107. %
  108.     text procedure text_string(t); text t;
  109.     begin
  110.         text temp;
  111.         temp:-blanks(256);
  112.         temp.putchar(char(t.length));
  113.         temp.sub(2,255):=t;    
  114.         text_string:-temp
  115.     end;
  116.  
  117. %     string_text
  118. % Routine to convert a Mac Pascal type str255 to a SIMULA text. 
  119. %
  120.  
  121.     text procedure string_text(t); text t;
  122.     begin
  123.         string_text:-t.sub(2,rank(t.sub(1,1).getchar));
  124.     end;
  125.  
  126.     integer procedure ostype(thetext);text thetext;
  127.     begin ostype:=rank(thetext.getchar)*16R1000000+
  128.         rank(thetext.getchar)*16R10000+
  129.         rank(thetext.getchar)*16R100+
  130.         rank(thetext.getchar);
  131.     end;
  132.  
  133. END --- MAC Utilities --- ;